[高手请进]谁知道此程式的代码和如何制作？

Private Type PATHINFO
hwndOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBROWSEINFO As PATHINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal l As Long, ByVal pszPath As String) As Long

Private Sub Command1_Click()
Dim LPATHINFO As PATHINFO
Dim PathName As String * 255
Dim l As Long
l = SHBrowseForFolder(LPATHINFO)
If l Then
If SHGetPathFromIDList(l, PathName) Then
Print Left$(PathName, InStr(PathName, Chr$(0)) - 1)
End If
End If
End Sub

这个是系统内置的『浏览文件夹』窗口吧
Option Explicit

Priv